proc gui::create_status_bar_bindings { } {

    .icde.c bind object <Any-Leave> {
        .icde.status.info configure -text {}
    }

    bind .icde.c <Motion> {      
        set cc [list [.icde.c canvasx %x 1] [.icde.c canvasy %y 1]]
        set lc [gui::transform $cc layout]
        set text [format {%%.3f %%.3f} [expr [lindex $lc 0] / 1000e0] [expr [lindex $lc 1] / 1000e0]]
        .icde.status.position configure -text $text
    }

}

proc gui::create_status_bar { path } {

    set sb [frame $path.status -relief sunken  -height 20 -bd 2]

    label $sb.position -width 30 -bd 2 -relief ridge

    label $sb.help -width 20 -bd 2 -relief ridge -justify left

    label $sb.info -width 40 -bd 2 -relief ridge -justify left

    pack $sb.help -side left -fill x -expand 1

    pack $sb.position -side right

    pack $sb.info -side right

    return $sb

}
